home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
AMICUS
/
AMICUS01.ADF
/
ABasicStuff
/
Tools
/
MoreColors.bas
< prev
next >
Wrap
BASIC Source File
|
1986-01-09
|
567b
|
25 lines
0 more colors.bas
5 a=10:b=10
10 rgb 0,0,0,0:rgb 1,12,12,12
20 screen 1,4
30 for x=0 to 15
40 pena x:box(a,b;a+20,b+20),1
50 a=a+21:next
60 ?" Here are the original 16 colors"
70 ?at(2,5)" Here are the some mixed colors";
80 ?at(0,1)
100 randomize 355/133
130 a=40:b=40
140 y=a
150 pena rnd(1)*31
160 for x=b to b+20 step 2
170 draw(x,y to x,y+20)
180 next
190 pena rnd(1)*31
200 for x=b+1 to b+21 step 2
210 draw(x,y to x,y+20)
220 next
230 b=b+21:if b>620 then a=a+21:b=10
240 if a>157 then end
250 goto 140